home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / scicos / demo8.cosf < prev    next >
Text File  |  1999-09-16  |  2KB  |  96 lines
  1. x = list(list([600 , 400],'demo8',[0.0001 , 1.000D-06 , 1.000D-10],100000,1),..
  2. list('Block',list([432 , 256],[40 , 40],%t,' ',[],[],[],6),..
  3. list('csuper',0,0,0,1,[],[],..
  4. list(list([600 , 400],' ',[],[],[]),..
  5. list('Block',list([218 , 210],[40 , 40],%t,' ',[],[],7,4),..
  6. list('evtdly',0,0,1,1,[],[],0.05,[],'d',%t,[%f , %f]),' ','EVTDLY_f'),..
  7. list('Block',list([351 , 148],[20 , 20],%t,'Out',[],[],6,[]),..
  8. list('output',0,0,1,0,[],[],[],1,'d',%f,[%f , %f]),' ','CLKOUT_f'),..
  9. list('Link',..
  10. [238;
  11. 238;
  12. 306.59898],..
  13. [204.28571;
  14. 158;
  15. 158],'drawlink',' ',[0 , 0],[10 , -1],[2 , 1],[5 , 1]),..
  16. list('Block',..
  17. list(..
  18. [306.59898;
  19. 158],[1 , 1],%t,' ',[],[],4,..
  20. [6;
  21. 7]),list('lsplit',0,0,1,2,[],[],[],[],'d',[%f , %f],[%t , %f]),' ','CLKSPLIT_f'),..
  22. list('Link',..
  23. [306.59898;
  24. 351],..
  25. [158;
  26. 158],'drawlink',' ',[0 , 0],[10 , -1],[5 , 1],[3 , 1]),..
  27. list('Link',..
  28. [306.59898;
  29. 306.59898;
  30. 238;
  31. 238],..
  32. [158;
  33. 299.7151;
  34. 299.7151;
  35. 255.71429],'drawlink',' ',[0 , 0],[10 , -1],[5 , 2],[2 , 1])),[],'h',%f,[%f , %f]),' ',..
  36. 'CLOCK_f'),..
  37. list('Block',list([432 , 158],[40 , 40],%t,'Scope',7,[],6,[]),..
  38. list('scope',1,0,1,0,[],..
  39. [-1;
  40. 0;
  41. 0;
  42. 0;
  43. 0],..
  44. [0;
  45. -1.5;
  46. 1.5;
  47. 30],..
  48. [10;
  49. 1;
  50. 2;
  51. -1],'d',%f,[%f , %f]),' ','SCOPE_f'),..
  52. list('Block',list([270 , 158],[40 , 40],%t,' ',[],7,5,5),..
  53. list(..
  54. deff('[%_1,%_2]=mac(t,x,z,u,n_evi,%_flag,rpar,%_ipar)',['%_1=[];%_2=[];'
  55. 'select %_flag'
  56. 'case 1 then'
  57. 'y=z '
  58. '%_1=y'
  59. 'case 2 then'
  60. 'if z==-1 then zp=1; else zp=-1;end '
  61. 'xd=[]'
  62. '%_1=xd'
  63. '%_2=zp'
  64. 'case 3 then'
  65. 't_evo=t+4*rand '
  66. '%_1=t_evo '
  67. 'case 4 then'
  68. '%_1=x'
  69. '%_2=z'
  70. 'end']),0,1,1,1,[],-1,[],..
  71. list('y=z ','if z==-1 then zp=1; else zp=-1;end ','t_evo=t+4*rand '),'c',0,[%f , %f]),' ',..
  72. 'scifunc_block'),..
  73. list('Link',..
  74. [290;
  75. 290;
  76. 233.0494;
  77. 233.0494;
  78. 290;
  79. 290],..
  80. [152.28571;
  81. 125.81602;
  82. 125.81602;
  83. 226.70623;
  84. 226.70623;
  85. 203.71429],'drawlink',' ',[0 , 0],[10 , -1],[4 , 1],[4 , 1]),..
  86. list('Link',..
  87. [452;
  88. 452],..
  89. [250.28571;
  90. 203.71429],'drawlink',' ',[0 , 0],[10 , -1],[2 , 1],[3 , 1]),..
  91. list('Link',..
  92. [315.71429;
  93. 426.28571],..
  94. [178;
  95. 178],'drawlink',' ',[0 , 0],[1 , 1],[4 , 1],[3 , 1]))
  96.